home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Libris Britannia 4
/
science library(b).zip
/
science library(b)
/
HAM_RAD
/
PROPAGAT
/
1004A.ZIP
/
PATH.BAS
< prev
next >
Wrap
BASIC Source File
|
1987-05-12
|
534b
|
16 lines
10 REM this program determines the db loss caused by an obstruction
20 REM in the antenna path
30 PRINT;"path loss due to obstruction":PRINT
40 PRINT,"wa2tif":PRINT
100 PI=3.1416
110 K=.3048
120 L=1.6093
130 R=6371.4
140 PRINT;"input heighth of antenna 1 in ft":INPUT H1
150 PRINT;"input heighth of obstruction in ft": INPUT H2
160 PRINT;"input distance to obstruction in miles":INPUT D1
170 T1=K*T1:T2=K*T2:D1=L*D1
180 A5=(H2-H1)/(1000*D1):A6=D1/(2*R)
190 AS=(A5-A6)*(180/PI)*3
200 PRINT,"attenuation in db":PRINT;AS